home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / shwtxt16.zip / FADES.ST < prev    next >
Text File  |  1995-02-01  |  767b  |  22 lines
  1. 'FADES.ST - PROGRAM TO PUT FADES ON THE SCREEN
  2. :BEGIN\ ON INTKEY0 ESC GOTO QUIT \ RIGHT MOUSE ESC \ CSR ON 0 TO 7
  3.         COPY(FADES1,1) \ COPY(FADES2,2) \ SCREENSAVER 1 \ COPY(1,0)
  4. :KEYIN\ WAITKEY 0,KEYIN
  5.         IF CLK (24,43,24,47) QUIT
  6.         IF CLK (17,63,19,78) ALL
  7.         IF CLK (4,2,22,19)  OK
  8.         IF CLK (4,22,22,39) OK
  9.         IF CLK (4,42,22,59) OK
  10.         IF CLK (4,62,22,79) OK
  11.         GOTO KEYIN
  12. :OK   \ V0=[.R] \ V0=V0-4 \ V1=[.C] \ V1=V1/20 \ V1=V1*19
  13.         V1=V1+V0 \ IF V1>64 KEYIN
  14.         SAVE \ COPY(2,0)V1 \ WAITKEY \ RESTORE \ GOTO KEYIN
  15. :ALL  \ ON INTKEY0 ESC GOTO BEGIN
  16.         FOR V0=0 TO 64 \ V1=V0 & 1 \ IF V1=1 ODD
  17.         COPY(1,0)V0 \ GOTO NXT
  18. :ODD  \ COPY(2,0)V0
  19. :NXT  \ NEXT V0 \ GOTO BEGIN
  20. :QUIT \ EXITC
  21.  
  22.